inherited FormUsuario: TFormUsuario
  Tag = 9
  Left = 408
  Top = 207
  Caption = 'Usu'#225'rios'
  ClientHeight = 401
  ClientWidth = 609
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Left = 601
    Height = 332
    Visible = False
  end
  inherited pnlSelec: TPanel
    Width = 601
    Height = 332
    inherited Splitter3: TSplitter
      Top = 65
      Width = 599
    end
    inherited pnlBusca: TGroupBox
      Width = 599
      Height = 64
      Caption = 'Selecione o perfil ou procure um usu'#225'rio'
      inherited lblCriterio: TLabel
        Left = 200
        Width = 28
        Caption = 'Nome'
      end
      object Label1: TLabel [1]
        Left = 8
        Top = 16
        Width = 23
        Height = 13
        Caption = 'Perfil'
      end
      object Label2: TLabel [2]
        Left = 400
        Top = 16
        Width = 26
        Height = 13
        Caption = 'Login'
      end
      inherited CRITERIO: TMaskEdit
        Left = 200
      end
      object PERFIL: TComboBox
        Left = 8
        Top = 32
        Width = 185
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        CharCase = ecUpperCase
        ItemHeight = 13
        TabOrder = 1
        OnChange = CRITERIOChange
        OnExit = CRITERIOExit
      end
      object LOGIN: TMaskEdit
        Left = 400
        Top = 32
        Width = 185
        Height = 19
        CharCase = ecUpperCase
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        OnChange = CRITERIOChange
        OnExit = CRITERIOExit
      end
    end
    inherited dbgRelacao: TSMDBGrid
      Top = 68
      Width = 599
      Height = 263
      ColCount = 4
      Columns = <
        item
          Expanded = False
          FieldName = 'USUARIO_LOGIN'
          Width = 105
          Visible = True
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'USUARIO_NOME'
          Width = 233
          Visible = True
          FooterType = ftCustom
        end
        item
          Expanded = False
          FieldName = 'USUARIO_EMAIL'
          Width = 226
          Visible = True
          FooterType = ftCustom
        end>
    end
  end
  inherited Panel1: TPanel
    Left = 604
    Width = 5
    Height = 332
    Visible = False
    inherited Splitter2: TSplitter
      Top = 309
      Width = 3
    end
    inherited PageControl1: TPageControl
      Top = 312
      Width = 3
      Height = 19
    end
  end
  inherited ToolBar1: TToolBar
    Width = 609
  end
  inherited pnCabecalho: TPanel
    Width = 609
    inherited Image1: TImage
      Width = 609
    end
  end
  inherited qryDados: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'CRITERIO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'LOGIN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '%'
      end
      item
        Name = 'PERFIL'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end>
    SQL.Strings = (
      'SELECT U.* FROM USUARIO U'
      'INNER JOIN PERFIL P ON (P.PERFIL_CODIGO=U.PERFIL_CODIGO)'
      'WHERE (USUARIO_NOME LIKE :CRITERIO)'
      'AND (USUARIO_LOGIN LIKE :LOGIN)'
      'AND (PERFIL_DESCRICAO LIKE :PERFIL)')
    object qryDadosUSUARIO_LOGIN: TStringField
      DisplayLabel = 'Login'
      FieldName = 'USUARIO_LOGIN'
      Size = 10
    end
    object qryDadosUSUARIO_NOME: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'USUARIO_NOME'
      Size = 50
    end
    object qryDadosUSUARIO_EMAIL: TStringField
      DisplayLabel = 'e-mail'
      FieldName = 'USUARIO_EMAIL'
      Size = 80
    end
    object qryDadosUSUARIO_SENHA: TVarBytesField
      FieldName = 'USUARIO_SENHA'
      Size = 128
    end
    object qryDadosPERFIL_CODIGO: TWordField
      FieldName = 'PERFIL_CODIGO'
    end
  end
  inherited qryGeral: TADOQuery
    Left = 296
    Top = 168
  end
  object qryPerfil: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    AfterOpen = qryPerfilAfterOpen
    Parameters = <>
    SQL.Strings = (
      'SELECT PERFIL_DESCRICAO, PERFIL_CODIGO FROM PERFIL'
      'ORDER BY PERFIL_DESCRICAO')
    Left = 136
    Top = 232
    object qryPerfilPERFIL_DESCRICAO: TStringField
      FieldName = 'PERFIL_DESCRICAO'
      Size = 50
    end
    object qryPerfilPERFIL_CODIGO: TWordField
      FieldName = 'PERFIL_CODIGO'
    end
  end
  object dsPerfil: TDataSource
    DataSet = qryPerfil
    Left = 144
    Top = 248
  end
end
